home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b2.d64 / exe141 < prev    next >
Text File  |  2007-02-28  |  2KB  |  82 lines
  1. 0010 DIM TEXT$ OF 70, WORD$ OF 10
  2. 0020 DIM ANSW$ OF 10, HINT$ OF 2
  3. 0030 CLEAR'TO(5)
  4. 0040 PRINT "HOW MANY EXERCISES (MAX. 6)",
  5. 0050 INPUT MAXNO
  6. 0060 FOR NO:=1 TO MAXNO DO EXERCISE
  7. 0070 //
  8. 0080 PROC EXERCISE 
  9. 0090 ATTEMPTS:=0
  10. 0100 READ TEXT$,WORD$
  11. 0110 REPEAT 
  12. 0120 DISPLAY
  13. 0130 GETANSWER
  14. 0140 CONTROL
  15. 0150 UNTIL ANSW$=WORD$ OR ATTEMPTS=3
  16. 0160 ENDPROC EXERCISE
  17. 0170 //
  18. 0180 PROC DISPLAY 
  19. 0190 CLEAR'TO(2)
  20. 0200 PRINT "------- EXERCISE NO. ",NO," --------"
  21. 0210 PRINT 
  22. 0220 PRINT TAB(2),TEXT$
  23. 0230 PRINT 
  24. 0240 PRINT "-------------------------------"
  25. 0250 ENDPROC DISPLAY
  26. 0260 //
  27. 0270 PROC GETANSWER 
  28. 0280 PRINT 
  29. 0290 PRINT "VERB IN PAST TENSE",
  30. 0300 INPUT ANSW$
  31. 0310 ENDPROC GETANSWER
  32. 0320 //
  33. 0330 PROC CONTROL 
  34. 0340 ATTEMPTS:=ATTEMPTS+1
  35. 0350 IF ANSW$<>WORD$ THEN
  36. 0360 PRINT 
  37. 0370 PRINT "NO - ",ANSW$," - IS NOT CORRECT."
  38. 0380 HELP
  39. 0390 ELSE 
  40. 0400 PRINT 
  41. 0410 PRINT "YES, THAT IS CORRECT!"
  42. 0420 ENDIF 
  43. 0430 WAIT(3)
  44. 0440 ENDPROC CONTROL
  45. 0450 //
  46. 0460 PROC HELP 
  47. 0470 IF ATTEMPTS=1 THEN
  48. 0480 HINT$:=WORD$
  49. 0490 PRINT "TRY TO START LIKE THIS :- ",HINT$
  50. 0500 PRINT 
  51. 0510 ELSE 
  52. 0520 IF ATTEMPTS=2 THEN
  53. 0530 PRINT "TRY THIS ONE:- ",WORD$
  54. 0540 ELSE 
  55. 0550 PRINT "THE CORRECT PAST TENSE IS"
  56. 0560 PRINT "       - ",WORD$," -"
  57. 0570 PRINT "TRY TO REMEMBER!"
  58. 0580 WAIT(2)
  59. 0590 ENDIF 
  60. 0600 ENDIF 
  61. 0610 WAIT(4)
  62. 0620 ENDPROC HELP
  63. 0630 //
  64. 0640 //*DATA QUEUE OF TEXTS AND ANSWERS*//
  65. 0650 DATA "BACH *GOES* TO TOWN","WENT"
  66. 0660 DATA "LOTTIE *WINS* THE GAME","WON"
  67. 0670 DATA "THEY *SIT* BY THE FIRE","SAT"
  68. 0680 DATA "WE *TELL* THE TRUTH","TOLD"
  69. 0690 DATA "YOU *SING* IN THE CHOIR","SANG"
  70. 0700 DATA "THEY *RUN* TO SEE THE FIRE","RAN"
  71. 0710 DATA "FRANK *CHOOSES* THE BLUE JACKET","CHOSE"
  72. 0720 //
  73. 0730 PROC CLEAR'TO(X) 
  74. 0740 PRINT CHR$(147), //CLEAR SCREEN
  75. 0750 FOR I:=1 TO X DO PRINT  //X DOWN
  76. 0760 ENDPROC CLEAR'TO
  77. 0770 //
  78. 0780 PROC WAIT(X) 
  79. 0790 FOR I:=1 TO X*500 DO
  80. 0800 ENDFOR I //WAIT APPROX. X SEC.//
  81. 0810 ENDPROC WAIT
  82.